Celestin Apprentice 5/Apprentice-Release5.iso/Environments/SmallEiffel 0.3.3/SmallEiffel PPC/lib_test/quadruped.e

Text File | 1996-06-13 | 357 b | 16 lines | [TEXT/EDIT]

-- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C)
-- Dominique COLNET and Suzanne COLLIN -- [e-mail]
--
deferred class QUADRUPED

inherit ANIMAL redefine fornicate_with end;

feature {ANY}

   fornicate_with(other: ANIMAL): ANIMAL is
      do
     Result := other.reproduction_avec_quadrupede(Current);
      end;

end -- QUADRUPED